<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.3 (US)</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3055</cardID>
<listID>2540</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Generic scriptson openStackif stackIsBeingUsed()then exit openStackif CardTop() = 0then hide menuBarset scroll of cd fld 1 to 0doOpenStuffend openStackon closeStackif stackIsBeingUsed()then exit closeStackif CardTop() = 0then show menuBardoCloseStuffend closeStackfunction CardTop Whatif the version contains "SuperCard"then return SCTop()else return top of cd windowend CardTopfunction SCTopreturn top of windowend SCTopfunction stackIsBeingUsedreturn not (the name of this stack is the name of me)end stackIsBeingUsed-- Custom scriptson doOpenStuffgo firstend doOpenStuffon doCloseStuffshowHide falseend doCloseStuffon showHide Howlock Screenrepeat with i=2 to 4if i > 2then set visible of btn i to Howset visible of cd fld i to Howend repeatend showHideon DisplayResultglobal FondNb,FondResultset cursor to watchif FondNb ≤ number of lines of FondResultthenrepeat with i=1 to 23put item i of line FondNb of FondResult into line i ¬of cd fld "Result"end repeatset scroll of cd fld "List" to 0put empty into cd fld "List"repeat with i=24 to number of items of line FondNb of FondResultif (i mod 4 ≠ 0) and i ≠ 24then next repeatput item i to i+3 of line FondNb of FondResult & return¬after cd fld "List"end repeatadd 1 to FondNbend ifend DisplayResult</script>
